/ BBS in a Box 22 / AMUG_22-4.ISO / Files IV / Prog / T / TinyTools-2.sit / TinyTools / RLE.h

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 52 4c 45 2e 68 00 | 00 00 00 00 00 00 00 00 |..RLE.h.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 ed 00 | 00 01 ac b0 5f 8d a3 b0 |........|...._...|
|00000060| 5f 8d a3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |_.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dc d8 00 00 |........|........|
|00000080| 2f 2a 09 72 75 6e 20 6c | 65 6e 67 74 68 20 65 6e |/*.run l|ength en|
|00000090| 63 6f 64 69 6e 67 20 63 | 6f 6d 70 72 65 73 73 69 |coding c|ompressi|
|000000a0| 6f 6e 20 72 6f 75 74 69 | 6e 65 73 0d 09 43 6f 70 |on routi|nes..Cop|
|000000b0| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 39 37 20 |yright (|c) 1997 |
|000000c0| 62 79 20 4a 6f 68 6e 20 | 4d 6f 6e 74 62 72 69 61 |by John |Montbria|
|000000d0| 6e 64 2e 20 20 41 6c 6c | 20 52 69 67 68 74 73 20 |nd.  All| Rights |
|000000e0| 52 65 73 65 72 76 65 64 | 2e 0d 09 50 65 72 6d 69 |Reserved|...Permi|
|000000f0| 73 73 69 6f 6e 20 67 72 | 61 6e 74 65 64 20 66 6f |ssion gr|anted fo|
|00000100| 72 20 70 75 62 6c 69 63 | 20 75 73 65 2e 0d 09 44 |r public| use...D|
|00000110| 69 73 74 72 69 62 75 74 | 65 20 66 72 65 65 6c 79 |istribut|e freely|
|00000120| 20 69 6e 20 61 72 65 61 | 73 20 77 68 65 72 65 20 | in area|s where |
|00000130| 74 68 65 20 6c 61 77 73 | 20 6f 66 20 63 6f 70 79 |the laws| of copy|
|00000140| 72 69 67 68 74 20 61 70 | 70 6c 79 2e 0d 09 55 53 |right ap|ply...US|
|00000150| 45 20 41 54 20 59 4f 55 | 52 20 4f 57 4e 20 52 49 |E AT YOU|R OWN RI|
|00000160| 53 4b 2e 0d 09 44 4f 20 | 4e 4f 54 20 44 49 53 54 |SK...DO |NOT DIST|
|00000170| 52 49 42 55 54 45 20 4d | 4f 44 49 46 49 45 44 20 |RIBUTE M|ODIFIED |
|00000180| 43 4f 50 49 45 53 2e 0d | 09 43 6f 6d 6d 65 6e 74 |COPIES..|.Comment|
|00000190| 73 2f 71 75 65 73 74 69 | 6f 6e 73 2f 70 6f 73 74 |s/questi|ons/post|
|000001a0| 63 61 72 64 73 20 74 6f | 20 74 68 65 20 61 75 74 |cards to| the aut|
|000001b0| 68 6f 72 20 61 74 20 74 | 68 65 20 61 64 64 72 65 |hor at t|he addre|
|000001c0| 73 73 3a 0d 09 09 4a 6f | 68 6e 20 4d 6f 6e 74 62 |ss:...Jo|hn Montb|
|000001d0| 72 69 61 6e 64 0d 09 09 | 50 2e 4f 2e 20 42 6f 78 |riand...|P.O. Box|
|000001e0| 2e 20 31 31 33 33 0d 09 | 09 53 61 73 6b 61 74 6f |. 1133..|.Saskato|
|000001f0| 6f 6e 20 53 61 73 6b 61 | 74 63 68 65 77 61 6e 20 |on Saska|tchewan |
|00000200| 43 61 6e 61 64 61 0d 09 | 09 53 37 4b 20 33 4e 32 |Canada..|.S7K 3N2|
|00000210| 0d 09 6f 72 20 62 79 20 | 65 6d 61 69 6c 20 61 74 |..or by |email at|
|00000220| 3a 0d 09 09 74 69 6e 79 | 6a 6f 68 6e 40 73 6b 2e |:...tiny|john@sk.|
|00000230| 73 79 6d 70 61 74 69 63 | 6f 2e 63 61 0d 09 49 66 |sympatic|o.ca..If|
|00000240| 20 79 6f 75 20 77 6f 75 | 6c 64 20 6c 69 6b 65 20 | you wou|ld like |
|00000250| 74 6f 20 68 61 76 65 3a | 0d 09 09 74 65 63 68 6e |to have:|...techn|
|00000260| 69 63 61 6c 20 73 75 70 | 70 6f 72 74 20 72 65 67 |ical sup|port reg|
|00000270| 61 72 64 69 6e 67 20 74 | 68 69 73 20 66 69 6c 65 |arding t|his file|
|00000280| 2c 20 73 65 6e 64 20 61 | 20 70 6f 73 74 63 61 72 |, send a| postcar|
|00000290| 64 2e 0d 09 73 65 65 20 | 61 6c 73 6f 3a 0d 09 09 |d...see |also:...|
|000002a0| 68 74 74 70 3a 2f 2f 77 | 77 77 33 2e 73 6b 2e 73 |http://w|ww3.sk.s|
|000002b0| 79 6d 70 61 74 69 63 6f | 2e 63 61 2f 74 69 6e 79 |ympatico|.ca/tiny|
|000002c0| 6a 6f 68 6e 0d 2a 2f 0d | 0d 23 69 66 6e 64 65 66 |john.*/.|.#ifndef|
|000002d0| 20 5f 5f 52 4c 45 5f 5f | 0d 23 64 65 66 69 6e 65 | __RLE__|.#define|
|000002e0| 20 5f 5f 52 4c 45 5f 5f | 0d 0d 23 69 66 64 65 66 | __RLE__|..#ifdef|
|000002f0| 20 5f 5f 63 70 6c 75 73 | 70 6c 75 73 0d 65 78 74 | __cplus|plus.ext|
|00000300| 65 72 6e 20 22 43 22 20 | 7b 0d 23 65 6e 64 69 66 |ern "C" |{.#endif|
|00000310| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 3c 54 79 70 65 |..#inclu|de <Type|
|00000320| 73 2e 68 3e 0d 0d 2f 2a | 20 74 68 65 73 65 20 72 |s.h>../*| these r|
|00000330| 6f 75 74 69 6e 65 73 20 | 65 6e 63 6f 64 65 20 61 |outines |encode a|
|00000340| 6e 64 20 64 65 63 6f 64 | 65 20 64 61 74 61 20 6d |nd decod|e data m|
|00000350| 75 63 68 20 6c 69 6b 65 | 20 74 68 65 0d 09 62 69 |uch like| the..bi|
|00000360| 6e 68 65 78 20 74 6f 6f | 6c 2e 20 20 69 66 20 61 |nhex too|l.  if a|
|00000370| 6e 20 65 72 72 6f 72 20 | 6f 63 63 75 72 73 2c 20 |n error |occurs, |
|00000380| 7a 65 72 6f 20 6f 72 20 | 4e 55 4c 4c 20 69 73 0d |zero or |NULL is.|
|00000390| 09 72 65 74 75 72 6e 65 | 64 2e 20 2a 2f 0d 0d 6c |.returne|d. */..l|
|000003a0| 6f 6e 67 20 50 61 63 6b | 28 76 6f 69 64 2a 20 73 |ong Pack|(void* s|
|000003b0| 72 63 2c 20 76 6f 69 64 | 2a 20 64 73 74 2c 20 6c |rc, void|* dst, l|
|000003c0| 6f 6e 67 20 63 6f 75 6e | 74 29 3b 0d 6c 6f 6e 67 |ong coun|t);.long|
|000003d0| 20 55 6e 70 61 63 6b 28 | 76 6f 69 64 2a 20 73 72 | Unpack(|void* sr|
|000003e0| 63 2c 20 76 6f 69 64 2a | 20 64 73 74 2c 20 6c 6f |c, void*| dst, lo|
|000003f0| 6e 67 20 63 6f 75 6e 74 | 29 3b 0d 0d 48 61 6e 64 |ng count|);..Hand|
|00000400| 6c 65 20 68 50 61 63 6b | 28 76 6f 69 64 2a 20 73 |le hPack|(void* s|
|00000410| 72 63 2c 20 6c 6f 6e 67 | 20 63 6f 75 6e 74 29 3b |rc, long| count);|
|00000420| 0d 48 61 6e 64 6c 65 20 | 68 55 6e 70 61 63 6b 28 |.Handle |hUnpack(|
|00000430| 76 6f 69 64 2a 20 73 72 | 63 2c 20 6c 6f 6e 67 20 |void* sr|c, long |
|00000440| 63 6f 75 6e 74 29 3b 0d | 0d 23 69 66 64 65 66 20 |count);.|.#ifdef |
|00000450| 5f 5f 63 70 6c 75 73 70 | 6c 75 73 0d 7d 0d 23 65 |__cplusp|lus.}.#e|
|00000460| 6e 64 69 66 0d 0d 23 65 | 6e 64 69 66 0d 00 00 00 |ndif..#e|ndif....|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000490| 65 6e 74 68 29 20 3d 3d | 20 30 29 20 70 72 6f 67 |enth) ==| 0) prog|
|000004a0| 28 28 61 63 74 75 61 6c | 2d 69 29 2b 31 2c 20 6c |((actual|-i)+1, l|
|000004b0| 05 52 4c 45 2e 68 02 00 | 00 00 54 45 58 54 4d 50 |.RLE.h..|..TEXTMP|
|000004c0| 53 20 01 00 ff ff ff ff | 00 00 00 00 39 f1 00 00 |S ......|....9...|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 ac aa a4 5f 00 00 | 03 ed 00 00 01 ac 6e 75 |....._..|......nu|
|00000500| 65 3b 0d 09 09 09 7d 20 | 65 6c 73 65 20 69 66 20 |e;....} |else if |
|00000510| 28 66 69 6e 64 68 61 73 | 68 65 6e 74 72 79 28 28 |(findhas|hentry((|
|00000520| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 29 20 4b |unsigned| char) K|
|00000530| 2c 20 63 75 72 72 65 6e | 74 2c 20 26 63 75 72 72 |, curren|t, &curr|
|00000540| 65 6e 74 29 29 0d 09 09 | 09 09 63 6f 6e 74 69 6e |ent))...|..contin|
|00000550| 75 65 3b 0d 09 09 09 6e | 65 77 68 61 73 68 65 6e |ue;....n|ewhashen|
|00000560| 74 72 79 28 6e 76 63 2c | 20 6e 76 73 74 65 2d 3e |try(nvc,| nvste->|
|00000570| 63 68 20 3d 20 28 75 6e | 73 69 67 6e 65 64 20 63 |ch = (un|signed c|
|00000580| 00 00 00 48 00 09 43 6f | 75 72 69 65 72 00 20 69 |...H..Co|urier. i|
|00000590| 03 df 88 40 69 72 73 74 | 2c 20 69 6e 74 20 6c 61 |...@irst|, int la|
|000005a0| 73 74 2c 20 69 6e 00 05 | 00 04 00 3e 02 40 01 86 |st, in..|...>.@..|
|000005b0| 03 94 00 3e 02 40 01 86 | 03 94 b0 5f 55 63 00 00 |...>.@..|..._Uc..|
|000005c0| 00 2c 00 00 02 45 00 00 | 00 00 01 00 00 00 00 1e |.,...E..|........|
|000005d0| 00 3e 02 40 01 86 03 94 | 00 3e 02 40 01 86 03 94 |.>.@....|.>.@....|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 03 d6 |.....n..|.n...>..|
|00000600| 71 38 26 32 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |q8&2....|.>..MPSR|
|00000610| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 03 f0 ff ff 00 00 00 4c | 03 d7 c9 7c 00 00 00 00 |.......L|...|....|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+